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New Quarterly Disk Ready 


Remember that all the source programs which appear in the Apple 
Assembly Line are available on disk, ready to assembly with the 
S-C Assembler II Version 4.0. Every three months I collect it all 
on a Quarterly Disk, and you can get it for only $15. 


QD#1l covers AAL issues 1-3 (October thru December 1980), QD#2 
covers AAL issues 4-6 (January thru March 1981), QD#3 covers 
issues 7-9 (April thru June 1981). Copies of all back issues of 
the AAL newsletter are available for $1.20 each. 


Another Way to Get 80-Columns 


Those unpredictable Apple Parallel Interface ROMs! I wonder if 
even Apple knows how many different versions they have made, and 
why! 


Anyway, as you know if you have one, some of them make it very 
difficult to get 80-column printout when you are using the S-C 
Assembler II. You should be able to type control-I and "80N", but 
the assembler sees control-I and does a tab. Plus you get a 
syntax error, and the printer is un-hooked. 


You can type “S$I80N" (where "I" means control-I). Or you can type 
"$579:50" (assuming slot 1). 


Or, you can make the first line of your program do it. Type in 
this line so it will be the first line in your program: 

0000 *I80N 
Then type the "MEM" command. It will tell you the memory address 
where your source program starts. Using monitor ‘commands, display 
about 8 bytes at the beginning of the source program. Look for 
the pattern “49 38 30 4E". Change the "49" to "09", which is 
ASCII for control-I. When your program is LISTed or ASMed, the 
control-I will be caught by Apple's interface and put you into 
80-column mode. 


So, now you have at least three ways to make it work. Don't you 
wish you had the ROM version which is in my Apple Parallel card? 
It works right without ANY of the above! Now if I could only make 
it work with my screen printing program.... 


Two Fancy Tone GeneratorsS.....cccccccccceeee Mark Kriegsman 


I was not quite satisfied with the sound from Bob 
Sander-Cederlof's “Touch-Tone Simulator" (AAL February 1981, page 
5.6). His method for making two simulataneous tones was to play 
one tone for a while and then the other one for a while, letting 
your ear put it all together. I have written the following 
DUAL.TONES program which mixes the two tones together in a more 
realistic way. I also wrote SINGLE.TONE which plays a given tone 
at 16 different volume levels. All out of the standard Apple 
Speaker! Really! 


The programs are accessed from Applesoft with the "&". (See lines 
1510 and 1830.) SINGLE.TONE is called with &T followed by three 
expressions separated by commas. The three expressions are for 
the tone, duration, and volume, respectively. Tone is a value 
from 0 to 255, duration a value from 0 to 65535, and volume a 
value from 0 to 15. Experiment with different settings and you 
will see how it works. By making loops which change both pitch 
and volume, you can simulate the sound of a falling bomb or a 
passing car. 


DUAL.TONES also needs three parameters: tone#l, duration, and 
tone#2, respectively. The two tone values must be between 0 and 
255; duration is again a value from 0 to 65535. It is interesting 
to try two tone values very close together, to hear the beating 
effect, and two tones at harmonic intervals to hear the chords. I 
think &D 254,28000.255 sounds a little like a light saber. Again, 
a loop which varies both tone values can make some exciting sound 
effects! 


Lines 1340-1400 are executed when you BRUN B.AMPERTONE; they set 
up the ampersand vector for Applesoft. Once this is done, an 
ampersand in your program or typed in as a direct command will 
start executing the AMPERTONE subroutine. 


Lines 1440-1490 determine which & routine you are calling. The 
character following the "&* is in the A-register. If it is "T", 
SINGLE.TONE is called; if "D", DUAL.TONE is called; if neither, 
you get SYNTAX ERR. 


Subroutines in the Applesoft ROMs are used to read the parameter 
expressions (lines 2190-2230). GTBYTC advances to the next 
character, and then evaluates the expression that starts there. 
If the value is between 0 and 255 it is returned in the 
X-register. (If not, you get RANGE ERR.) CHKCOM makes sure the 
next character is a comma; if it isn't, you get SYNTAX ERR. 
GETNUM is used in executing the POKE statement. It looks for an 
expression giving a value between 0 and 65535, then a comma, and 
then another expression giving a value between 0 and 255. The 
first value is stored at $50 and $51, and the second is returned 
in the X-register. 


[Mark Kriegsman is a 15-year-old Apple expert living in Summit, 


New Jersey. I wrote the article above based on two letters and a 
program he sent. (Bob Sander-Cederlof) ] 
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1600 * 
O * DUAL TONE, AND TONE WITH VOLUME CONTROL 
1030 * WRITTEN BY MARK KRIEGSMAN......-5-22~-81 
1046 * REVISED BY BOB SANDER-CEDERLOF. .5-29-81 
1060 -OR $300 
1070 . .TF B.AMPERTONES 
1090 * ROM SUBROUTINES USED 
DERE- 1110 CHKCOM . MUST SEE COMMA 
DEC9- 1120 SYNERR . AX ERROR 
E6F5-~ 1139 GIBYTC . BGS EAT EAT CHAR, GB GET BYTE I 
£746- 1140 GETNUM . TWO-BYTE VALUE iN 50,51 
+120 * THEN COMMA AND ONE-B N X 
1128 s———_PAGE"ZERO_VARTABLES 
0050- 1190 DURATION . 50 AND $51 
OOFB- 1200 TONEL.CNT . 
OOFC- 1210 TONE2. ; 
0OFD— 1220 TONE] . 
OOFE- 1230 TONE2 : E 
OOFF- 1240 VOLUME . 
1250 * 
1266 * I/O ADDRESSES 
Cc030- 1280 SPKR -EQ $C030 
03F5- 1300 AMPERSAND. VECTOR EQ $3F5 THRU $3F7 
1320 * INITIALIZE AMPERSAND VECTOR 
0300- A9 1340 INIT LDA #S$4Cc JMP OPCODE 
0302- 8D Fe 03 1350 STA AMPERSAND. VECTOR 
0305- A9 136 LDA #AMPERTONE 
0307- 8D FS 03 1370 STA ERSAND.VECTOR+1 
030A- AS 0 1380 LDA /AMPERTONE 
930C- gD F7 03 1390 STA « VECTOR+2 
se HBS , 
1420 * AMPERSAND ENTRY POINT 
1440 AMPERTONE 
0310- C9 54 1450 CMP #'T IS IT TONE? 
0312- FO 07 146 SINGLE. TONE 
0314- C9 44 1470 #'p IS IT DUAL? 
0316- FO 37 1480 BEQ DUAL. 
0318- 4C C9 DE 1490 . SYNERR NEITHER, SO SYNTAX ERROR 
1310 * &T <TONE>, <DURATION>, <VOLUME> 
1530 SINGLE. 
031B- 20 84 03 1540 JSR GET. PARAMS 
031E- SA 1390 TXA VOLUME 
O31F- 29 0 156 AND #15 TO 0-15 
0321- 85 FF 1570 STA VOL 
0323- A5 FD 1580 LDA TONE] 
0325- 85 FB 1590 STA ‘TONE].CNI 
0327- C6 FB 1600 .1 DEC TONE]. 
329- DO 19 16 BNE .5 
32B- AD 30 CO 16 LDA SPKR TOGGLE SPEAKER 
032F- FD 1630 LDA TONE] RESET 
0330- 85 FB 1640 STA TONE].CNr 
32—- A4 FF 1650 LDY VO 
0334- 1660 .3 NOP 
0335- FA 1670 NOP 
0336- 8 1680 DEY 
0337- 1690 BPL .3 
0339- AD 30 CO 1700 LDA SPKR TOGGLE SPEAKER AGAIN 
033C- A4 FF 1710 LDY VOLUME BQUALIZE VOLUME DELAY 
033E- EA 1720 .4 NOP 
033F- C8 1730 INY 
0340- CO 10 17 CPY #16 
0342- 90 F 1750 BCC .4 
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0344- AQ OA 1760 .5 LDY #10 SHORT ADDITIONAL DELAY 

0346- 88 1770 . DEY 

0347- DO FD 1780 BNE .6 

0349- 20 8F 03 1790 JSR DECREMENT . DURATION 

034C- 90 D9 1800 BCC .l 

034E- 60 1810 
1820 * 
1840 ; &D <TONE]>, <DURATION>, <TONE2> 
1850 DUAL.TONES 

p3aE- 20 84 03 1868 JSR GET. PARAMS 

32- 86 FE 187 STX TONE2 

0354- A5 FD 1880 TONE] 

356- 85 FB 1890 STA TONE] .CNT 

0358- A5 FE 1900 TONE2 

QO35A- 85 FC 1910 STA TONE2.CNT 

035C- C6 FB 1920 .1 DEC TONE] .CNT 

035E- FO 06 1930 02 ' 

0360- 46 FF 1940 LSR VOLUME ‘TO ZE TIME 

0362- AS FF 1950 VOLUME ‘TO ZE TIME 

0364- 10 07 1960 BPL .3 cee S 

0366- AD 30 CO 1970 .2 LDA SPKR SPEAKER 

0363~ A5 FD 1980 LDA TONE] 

036B- 85 FB 1990 STA TONE] .CNT 

036D- C6 FC 2000 .3 DEC TONE2.CNr 

036F- FO 06 2010 BED .4 

0371- 46 FF 2020 VOLUME Z 

0373- FF 20 LDA VOLUME ‘TO IZE TIME 

0375- 10 07 2040 BPL .5 coe S 

0377- AD 30 CO 2050 .4 LDA SPKR TOGGLE SPEAKER 

63 A- FE 2060 LDA TONE2 RESET 

C- 85 FC 070 STA TONE2.CNT 

Q37E- 20 8F 03 2080 .5 JSR DECREMENT . DURATION 

0381- 90 D 2090 BCC .l 

0383- 60 21.08 ‘ RTS 
2120 * GET THREE PARAMETERS AFTER &T OR &D 
2130 *: 1. 8-BIT VALUE, STORE IN TONE] 
2140 * 2. COMMA 
2150 * 3. 16-BIT VALUE, STORE IN DURATION 
2160 * 4. COMMA 
2170 . 5. 8-BIT VALUE, RETURN IN X-REGISTER 
2190 GET. PARAMS 

0384- 20 F5 E6 2200 JSR GTBYTC GET TONE 

0387- 86 2210 STX TONE] 

0389- 20 DE 3230 JSR CHKCOM 

038C- 4C 46 E7 2230 * JMP GET DURATION AND VOLUME 
2250 * DBCREMENT DURATION 
$260 ; RETURN CARRY CLEAR IF NOT FINISHED 
2280 DBCREMENT .DURATION 

038F- A5 50 2290 LDA DURATION FINISHED YET? 

0391- DO 08 2300 BNE . 

0393- A5 51 2310 LDA DURATION+1 

0395- DO 02 2320 BNE .l 

0397- 38 2330 SEC 

0398- 60 2340 RTS FINISHED 
2 DEC DURATION+1 


© 
ee 
¢ 
Q 
roa) 
Ww 
© 
N 
WwW 
fea) 
an) 
NF 


039D- CLC 
039E- 60 2380 RTS 
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Correction 


When I typed Rick Hatcher's code for “Hiding Things Under DOS", 
AAL April. 1981, page 10, I goofed. Change line 110 of the little 
Applesoft code from "110 POKE 40194,211" to "110 POKE 40192.211". 
Better yet, to reserve NP pages between the current bottom of DOS 
and DOS's buffers, use this code before any files are opened: 


100 POKE 40192-PEEK (40192) -NP 
110 CALL 42964 


More About Multiplying on the 6502 


You will remember Brooke Boering's article on this subject in 
MICRO last December; I mentioned it in AAL#5, and printed his 
16x16 multiply subroutine. Now Leo J. Scanlon, author of 6502 
Software Design, published an eight-page article "Multiplying by 
l's and 0O's®* in Kilobaud Microcomputing, June 1981, pages 110-120. 


If you are serious and really want to learn, this article gets 
down to the nuts and bolts level. Work your way through it, and 
you will have learned not only how to multiply. but also a lot 
about machine language in general. Subroutines are listed for 
8x8, 16x16, and NxM multiplication, for both signed and unsigned 
operands. 


Not to be outdone, I have written my own subroutine to multiply an 
M-byte multiplicand by a N-byte multiplier (both unsigned), 
producing a product of M+N bytes. It is written for clarity, not 
for size or speed (nevertheless, it is two bytes shorter than 
Scanlon's subroutine!). 


The basic idea is to examine the bits of the multiplier 
one-by-one, starting on the right. If the multiplier bit = 1, the 
multiplicand is added in to the product, at the left end of the 
product register. In either case, the product register is then 
shifted right one bit position. The process is repeated until the 
multiplier is used up. 


I wrote subroutines to shift the product register right one bit 
position, to shift the multiplier right one bit position returning 
the bit shifted out in the CARRY status bit, and to add the 
multiplicand to the product register. There is no reason these 
have to be subroutines; they could be coded in line, because they 
are only called from one place. I did it to make the overall 
program easier for you to follow. 


The multiplication loop is coded as two loops: an outer loop for 
the number of bytes in the multiplier. and an inner loop for the 
number of bits in a byte. This allows me to have up to 255 bytes 
in the multiplier, just so the product (M+N bytes) is not more 
than 256 bytes. (Of course, if you want variables that long, you 
will have to move them out of page zero.) 


There is one little trick you might not notice. After 
ACCUMULATE. PARTIAL.PRODUCT, carry will be set if the sum 
overflows. Then SHIFT.PRODUCT.RIGHT shifts the carry bit back 
into the product register, maintaining the right answer. 
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1000 * 
100 . M-BYTE BY N-BYTE MULTIPLY 
0000- 1030 M e 00 # BYTES IN MULTIPLICAND 
0001- 1040 N ° 01 # BYTES IN MULTIPLIER 
0002- 1050 PSIZE . 02 # BYTES IN PRODUCT 
0003- 1060 I ° 03 
0004- 1070 J ° 04 LOOP COUNTER 
0090- 1080 MULTIPLI ° 90 THRU ... 
0OB0- 1100 P ° eee 
1110 
1120 MXN.MPY 
1130 *-——__--_—___ 
1150 ¢#———— ee 
A LDY M # BYTES IN MULTIPLICAND 
B80- 84 62 © 1190 SIY PSIZE 
0804- AS 00 1180 LDA #0 
0806- 99 BO 00 1190 .1 STA PRODUCT,Y 
0809- 88 1200 DEY 
O80A- 10 FA 1210 BPL .l 
1220 * 
1230 * FOR I=™ TO 1 STEP -l 
1240 * PSIZE = PSIZE + 1 
i3ee . FOR J=8 TO 1 STEP -1l 
O80C- A5 01 1270 LDA N # BYTES IN MULTIPLIER 
O80E- 85 03 1280 I 
0810- E6 02 1290 .2 INC PSIZE 
0812- 8 1300 #8 
0814- 04 +330 + STA J 
1330 . ACCUMULATE PARTIAL PRODUCT FOR NEXT BIT 
0816- 20 2A 08 1350 .3 JSR SHIFT.MULTIPLIER.RIGHT 
0819- 90 03 1360 4 ZERO-B 
O81B- 20 40 08 1370 JSR ACCUMULATE. PARTIAL. PRODUCT 
O8lE- 20 35 08 1380 34 JSR SHIFT. PRODUCT.RIGHT 
1400 * NEXT J : NEXT I 
1410 * 
0821- C6 04 1420 DEC J 
0823- DO Fl 1430 BNE . 
0825- C6 03 1440 DEC I 
0827- DO E7 1450 BNE .2 
0829- 60 1460 RTS 
1470 * 
1480 . SHIFT MULTIPLIER RIGHT 
1500 SHIFT.MULTIPLIER.RIGHT 
O82A~- A4 01 1510 LDY N # BYTES IN MULTIPLIER 
082C- A2 00 1520 LDX #0 
O82E- 76 AO 1530 .1 ROR MULTIPLIER ,X 
0830- E8 1540 INX 
0831- 88 1550 DEY 
Mey DO FA 1560 BNE .1 
0834- 60 1570 RTS 
1580 * 
1330 . SHIFT PRODUCT RIGHT 
1610 SHIFT. PRODUCT.RIGHT 
0835- A4 02 1620 LDY PSIZE # BYTES IN PRODUCT 
0837- A2 00 1630 
0839- i8 BO 1640 .1 ROR PRODUCT,X 
083B- E 1650 INX 
083C- 88 1660 DEY 
083D- 10 FA 1678 BPL .1 
083F- 60 1880 + RTS 
1720 ACCUMULATE. PARTIAL. PRODUCT 
0840- A4 00 1730 LDY M 
842- 88 1740 DEY 
0843- 18 1750 CLC 
0844- B9 00 1760 .1 LDA MULTIPLICAND,Y 
0847- 79 BO 00 1770 PRODUCT, 
084A- 99 BO 00 1780 STA PRODUCT,Y 
b4b- 88 e4 1790 DEY 1 
b850- 60 1810 RTs 
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Specialized Multiplications 


Sometimes you need a multiplication routine that is not general at 
all. Por example, when you are converting from decimal to binary. 
you need a routine that will multiply be ten. When you are 
computing the memory address of a character at a particular 
position on a particular line on the Apple Screen, you need to be 
able to multiply by 40 and 128. Other cases may come to your 
mind. 


The subroutine BASCALC in the Apple Monitor computes the address 
in screen memory. Here is what it is really doing, written in 
Integer BASIC: 


100 ADDR = 1024 + (LINE MOD 8)*128 + (LINE/8) *40 
To do all that using a generalized multiply routine would take 


hundreds of microseconds; BASCALC takes only 40 microseconds. 
Here is Woz's code, with a few extra comments: 


1000 * 
1019 * BASCALC FROM APPLE MONITOR 
0028- 1939 BASL BQ 28 
0029- 1040 BASH . 9 
1050 * 
1060 BASCALC 
0800- 48 1070 PHA ARG = 00 
0801- 4A 1080 LSR A) = OOOQABCD, E IN CARRY 
0802- 29 03 ~—-1090 AND #3 A) = 00000 
0804- 09 04 ~=— 1100 ORA #4 A) = 000001CD 
0806- 85 29 =: 11:10 STA BASH I F S 
0808~- 68 1120 PLA FOCABCDE 
0809- 2918 1130 AND #$18 000AB000 
O80B- 90 02 1140 BCC IN E 
O80D- 69 7F 1150 ADC #S7F = EOOABOO 
O80F- 85 28 1160 .1 STA = FOOABO00 
0811- OA 1170 ASL ; = O0AB0000, E IN CARRY AGAIN 
0813- 0 28 1189 pot BASL A) = Seite CARRY CLEAR 
0815- 85 120 STA BASL E OF ADDRESS 
0817- 60 1210 RTS 


A subroutine to multiply by ten usually takes advantage of the 
fact that ten in binary is "1010". That is, 10*xX is the same as 
8*X + 2*X, or 2*(4*X+X). In fact, even in machines that have 
hardware multiply instructions, it is usually faster to multiply 
by ten using "shift-twice-and-add" than using the built in MPY 
opcode! 


Here is a short piece of code which multiplies a two-byte value by 
ten, storing the result back in the same bytes. 
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1000 ¢——$—$—$—$—$——$——_——__—________ 
1010 * MULTIPLY TWO BYTES BY TEN 

000- 1030 BO . 0 
B00- AS 01 1048 By TEN Bs 31 SAVE HI-BYTE ON STACK 
B09 38 1060 PHA 
0803- A5 00 ~—«:1070 LDA BO GET LO-BYTE IN A 
0805- 06 00 1080 ASL. BO DOUBLE THE TWO-BYTE VALUE 
0807- 26 01 1090 ROL Bl 
0809- 06 00 1100 ASL BO DOUBLE IT AGAIN: 
080B- 26 01 1110 ROL Bl 
O80D- 18 1120 Cle ADD IN THE ORIGINAL VALUE 
O80E- 65 00 «113 ADC BO 
O810- 8 00 114 STA BO LO-BYTE 
0812- 68 1150 PLA HI-BYTE 
0813- 65 01 1160 ADC Bl 
0815- 85 01 «1170 STA Bl 
O817- 06 00 1180 ASL BO DOUBLE 5*B TO GET 10*B 
0819- 26 01 1190 ROL Bl 
081B- 1200 RTS RETURN TO CALLER 


Another way. much less sophisticated, to multiply by ten is to 
Simply add the number to itself nine times. If you have the S-C 
ASSEMBLER II Version 4.0, disassemble from $114A through $117A. 
You will find my subroutine for converting line numbers to binary. 
It is not elegant, but it does the job reasonably fast in a small 
amount of memory. A counter is initialized to 10; the next digit 
is read from the input line and converted from ASCII to binary; 
the number accumulator is added to the digit ten times, and the 
sum placed back into the number accumulator. The counter is in 
$52. and the number accumulator is in $50.51. 


When you are converting from binary to decimal, you need to divide 
by ten. Or multiply by one-tenth. One-tenth written as a binary 
fraction is *.0001100110011001100....". Does the repetitive 
pattern here suggest to you a short-cut way to multiply by 
one-tenth? Maybe it would become even easier if we write 
one-tenth as 4/30 - 1/30. In decimal, to 8 places, that looks 
like .13333333 - .03333333 = .10000000. In binary. to 18 bits, it 
looks like .001000100010001000 - .000010001000100010 = 
-000110011001100110. See what you can come up with for a fast way 
to multiply a 16-bit number by one-tenth. I'll print the best 
version in AAL! 
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Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817 (382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 


$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$60 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$36. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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fe) n isting of DOS 3.3 $B800-BCFF 


As I promised last month. here are the innermost routines of DOS 
3.3. These are the ones which actually read and write’ the 
hardware, and are the most significantly different routines 
between DOS 3.2.1 and DOS 3.3. 


The major difference between the two versions of DOS is the way in 
which data bytes are coded on the disk. DOS 3.2.1 maps 256 8-bit 

bytes into 410 5-bit "nybbles". DOS 3.3 maps 256 8-bit bytes into 
342 6-bit “*nybbles”. (The term “nybble" usually means 4 bits, but 
Apple uses nybble to mean 5- and 6-bits also.) 


The two routines PRE.NYBBLE and POST.NYBBLE convert between memory 
format and disk format. The DOS 3.3 versions are much shorter and 
Simpler than those of DOS 3.2.1, but they are still hard to 
visualize and explain. 


To write a sector on the disk, RWTS calls PRE.NYBBLE and 
WRITE.SECTOR. Here is what happens: 


1. The most significant 6 bits of each byte in the buffer 
are copied into S$BBOO-BBFF and right-justified with two 
zero-bits on the left. 


2. The least significant 2 bits of each buffer byte are 
mapped into $BC00-BC55. 


3. Each 6-bit nybble is used as an index into the 
NYBBLE.TABLE to pick up a corresponding 8-bit disk code. 


(The codes in NYBBLE.TABLE always have the first bit = 1, and 
never have more than two zero-bits ina row.) 


SECTOR BUFFER RWTS .BUFFER.1 RWTS . BUFFER. 2 
76543210 76 5 4 3 1 0 76543210 


00 BBOO A Aad BCOO 
\| Pit tityt 
E|D/C|B/A 
55 BC55 
AC 
E| FP 
FF BBFF 
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To read a sector from the disk, RWTS calls READ.SECTOR and 
POST.NYBBLE. Here is what happens: 


l. Each disk byte is converted to a 6-bit nybble and copied 
into the buffer from SBBOO through $BC55. 


2. The nybbles in $BBO0-BBFF become the most significant 
6-bits of the buffer bytes. 


3. The nybbles in $BC00-BC55 supply the least significant 
2-bits for each buffer byte. This is the reverse of the 
process above. 


WRITE.ADDRESS is called from FORMAT, when you are initializing a 
l16-sector disk. This subroutine was embedded inside FORMAT in DOS 
3.2.1. READ.ADDRESS, READ.SECTOR, and WRITE.SECTOR are almost 
identical to the DOS 3.2.1 versions. 


Short as they are, I noticed that both PRE. and POST.NYBBLE can be 
written more efficiently. Can you see how to save three bytes in 
PRE.NYBBLE, and two bytes in POST.NYBBLE? 


NEW UTILITIES FOR S-C ASSEMBLER 


GLOBAL SEARCH & REPLACE 


REPLACES LABEL NAMES QUICKLY AND EASILY 
SEARCH ALL OR PART OF SOURCE CODE 
OPTIONAL PROMPTING FOR USER VERIFICATION 
PROGRAM DISKETTE + DOCUMENTATION: $ 20, 22 


Cross REFERENCE TABLE 


A COMPLETE CROSS REFERENCE OF GLOBAL LABELS BY LINE # 
TABLE GENERATED IN ALPHABETICAL ORDER 

LEADING LABEL LINE NUMBERS HIGHLIGHTED ' 
SEE EXAMPLE OUTPUT IN AD OF MARCH APPLE ASSEMBLY LINE 
PROGRAM DISKETTE AND DOCUMENTATION: ¢ 20,22 


THE ABOVE MACHINE LANGUAGE UTILITIES ARE FOR USE WITH THE 
S-C ASSEMBLER VERSION 4.0 
RAK-WARE 


41 Ralph Road 
West Orange, NJ 07052 
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1000 * 
1010 * 
1020 * DOS 3.3 DISASSEMBLY 800 - 
1030 * COMMENTS BY BOB SANDER-C F 5- cai 
1828 .OR $B800 
1060 -TA $0800 
1070 * 
99 E- 1980 BUF. PNIR : 3E,3F 
E- 0 CONST .AA : E 
003F- 1100 FMT.SECTOR ; 3F 
0041- 1110 VOLUME : 1 
0044- 1120 TRACK.CNIR ; 4 
78- 1130 CURRENT . TRACK . 478 
1159 * DISK CONTROLLER ADDRESSES 
c080- 1158 PHOFF . 080  PHASE-OFF 
g]- 180 PHON 081 PHASE 
C088- 1190 MIROFF . 088 § MOTOR OFF 
Cc089- 1200 MIRON . 089 MOTOR 
CO8A- 12 EN . OSA §_ DRIVE 0 ENABLE 
CO8B- 1220 DRVIEN . 08B DRIVE. 1 ERRBLE 
COBC- 123 L : osc oe neh 
cue HAR 3 Sp 
CO8F- 1260 7H ; O8F oer 5 GH 
1280 $ 06 Q7 USE OF Q6 AND Q7 LINES 
1300 * LOW LOW READ (DISK TO SHIFT REGI STER) 
1310 * LOW HIGH WRITE (SHIFT REGISTER TO DISK) 
1320 * HIGH LOW SENSE WRITE PROTECT 
1330 * HIGH HIGH LOAD SHIFT REGISTER FROM DATA BUS 
1350 * 
1360 *¢—_——_____——______________—_ 
1370 * CONVERT 256 BYTES TO 342 6-BIT NYBBLES 
1385 PRE. NYBBLE 
00- A2 09 1409 LDX 19 
B802- AO 0 141 LDY 
804- 88 1420 .1 DEY 
B805- Bl 3E 1430 LDA (BUF.PNIR),Y NEXT REAL BYTE FROM BUFFER 
of- 3E 00 BC 1454 ROL RWIS . BUFFER. 2,X 
80C- 3 BC 1470 ROL RWIS.BUFFER. 2,X 
BBOF - 99 00 BB 1480 STA RWIS.BUF 
B813- EO 56 ~=—-: 1500 #86 
B815- 90 ED ~— ‘1510 BOC 
B817- A200 152 LDX #0 
19- 98 153 A 
B81A- DO E8 1540 BNE ,] 
B81C- A255 _—-1550 LDX $85 CLEAR TOP BITS OUT OF BUFFER 
B821- 29 3F _—-1570 AND #S3F 
B823- 9D 00 BC 1580 STA RWIS. BUFFER. 2,X 
- 1590 DEX 
B82 7- 10 F5 1600 BPL .2 
- 1610 
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6 * 
1640 * WRITE A SECTOR ON THE DISK FROM RWTS.BUFFER 
WRITE.SECTOR 
B82A- 38 1253 SEC SET IN CASE OF ERROR RETURN 
B82B- 86 27 _—«i1680 STX $2 SAVE 
Se Se eS ee ion aon 
Be Oh RRO ae ore grams 
B838- AD 00 BC 1730 RWIS.BUFFER.2 F NYBBLE OF DATA 
B83B- 85 26 1740 STA ; 6 IT 
B83D- A9 1750 SYNC BYTE 
B83F- 9D 8F CO 1760 STA 07H,X QoH, 7H: (A) TO SHIFT REGISTER 
B842— ID 8C CO 1770 ORA O6L,X L,O7H: WRITE ON DISK 
B845- 48 1780 PHA TIME DELAYS 
jh et 
BR ibR AO 04 1898 LDY #4 WRITE FOUR MORE SYNC BYTES 
- 48 182 el PHA WASTE TIME 
BS4B- 6 3 PLA 
B84C— 20 B9 BS 1840 JSR WRT2 WRITE (A) ON DISK 
BES. bp F pe Oe UNTIL 4 OF THEM 
BRP - A9 1868 LDA $ WRITE DATA HEADER 
B854- 20 B8 BS 1880 JSR WRT1 
B857- A9 1890 #SAA 
B859- 20 B8 B8 1900 JSR WRTL 
B85C- AI AD —«i1910 # 
B85E~- 20 B8 BB 1920 JSR WRT 
B861- 98 1930 A=0 
B862— AO 5 1940 LDY #86 WRITE 86 NYBBLES 
864- DO 0 1950 eee 
B869- 59 FF BB 1970 .3 FOR RWIS.BUFFER.2-1,Y BOR WITH PREVIOUS NYBBLE 
B86C- AA 1980 TAX USE AS OFFSET INTO TABLE 
86D- BD 29 BA 19 LDA NYBBLE.TABLE,X MAP 6-BITS TO 8-BITS 
B870- A6 27 «2000 LDX $27 GET SLOT AGAIN 
872- 9D 8D CO 2010 STA Q6H,X ,O7H: (A) TO SHIFT REGISTER 
B J BD 8C CO 2020 LDA L,X L,O7H: Pier ON DISK 
B879- DO EB =. 2040 BNE .2 UNTIL ALL BYTES FROM THIS BLOCK DONE 
B87B- A5 26 2050 LDA $26 GET FIRST NYBBLE 
B87D—- FA 2060 NO 
B87E- 59 00 BB 2070 .4 FOR RWTS.BUFFER.1,Y BOR WITH CURRENT NYBBLE 
B88]—- AA 2080 TAX INDEX INTO TABLE 
B882- BD 29 BA 2090 LDA NYBBLE.TABLE,X MAP TO 8-BIT VALUE 
BeBe OB OB cb atte on eg eB 
B888- 9D 8D C STA O6H,X ,Q7L: (A) TO SHIFT REGISTER 
8B- BD 8C CO 2120 LDA O6L,X L,Q7H: WRITE ON DISK 
B88E- BS 00 BB 2130 LDA ; .1,Y GET NYBBLE 
B891- C8 2140 INY 
B892- DO EA 2150 BNE .4 MORE TO DO 
B894- AA 2160 LAST NYBBLE 
895- BD 29 BA 2170 LDA NYBBLE.TABLE,X MAP TO 8 BITS 
B898- A6 27 2180 LDX $27 SLOT # AGAIN 
B89A- 20 BB B8 21 JSR WRT3 WRITE CHECK SUM ON DISK 
B89D- AI DE _—s«-.2200 LDA ESDE 
B89F— 20 BB B8 2210 JSR : 1 
BR 38 Be Bs 3346 TR font 
B8A7- AS EB 2240 LDA $SEB 
BRAC AO ER e 35e0 opr tere 
Ben fm Be BS 3530 rk LX OTL 
B4—- BD 8C CO 2290 .5 LDA Rebed gL 
B8B7- 6 2300 ‘ RTS 
§B8- 2320 WRT] CIC WAIT 2 CYCLES 
B8B9- 4 2330 WRI2 PHA WAIT 3 CYCLES ; 
B8BA- 68 2340 PLA WAIT 4 Cy 
8BB- SD 8D CO 2350 WRT3 STA Q6H,X ,O7H: (A) TO SHIFT REGISTER 
= WD 8 CO 2360 ORA O6L,X L,O7H: WRITE ON DISK 
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2390 *_—_—_—_——__$ $$$ ———__________- 
2400 * CONVERT 342 6-BIT NYBBLES TO 256 BYTES 
a4t0 ; (THEY ARE NOW RIGHT-JUSTIFIED IN RWIS. BUFFER) 
2430 POST .NYBBLE 
B8C2- AO 00 2440 LDY #0 
B8C4—- A2 56 2450 2 LDX #86 
B8C7- % FB 24 BL wl 
B8C9- B9 00 BB 2480 LDA RWTS.BUFFER.1,Y 
BCC 5E 00 BC 24 LSR RWIS. yy 
Ba eh 00 BC $208 Rot RWIS. BUFFER. 2,X 
BgD3- 2520 ROL 
Bee GB 1g §6— Sad EY $26 (RWIS PUT 0 IN $26) 
B8D9- DO 3360 BNE . 
BaDB- 60 3/0 . RTS 
3359 * READ SECTOR INTO RWIS. BUFFER 
B 20 3619 FE SEY #32 MUST FIND $D5 WITHIN 32 BYTES 
Bape BB oe |S 
BSDF~ FO 61 640 BED ERROR. RETURN 
B8El1- BD 8C CO 2650 .2 Q6L,X READ SHIFT REGISTER 
B8E4- 10 FB 660 BPL WAIT FOR FULL 
BS8E6- 49 D5 670 .3 BOR $ SEE IF FOUND SD 
BSE8- DO F4 2680 BNE . NOT YET 
BSEA~ EA 2690 NOP DELAY BEFORE NEXT 
BSEB- Ep 8c CO $100 4 LDA Q6L,X READ SHIFT REGISTER 
- 10 FB BPL - WAIT FOR FULL BYTE 
BSFO- C9 AA 720 Gp } SEE IF SAA 
-DOF2 2730 BNE . NO 
B8F4— AO 56 2740 LDY #86 BYTE COUNT FOR LATER 
BSF6- BD 8C CO 2750 .5 LDA Q6L,X READ SHIFT REGISTER 
10 FB.so276 BPL .5 WAIT FULL BYTE 
B8FB- C9 AD 27 Cup sap IS IT SAD? 
BSFD- DO E7 218 . BNE . NO 
~ AY 2800 LDA #0 BEGIN CHECKSUM 
01- 88 2810 .6 DEY 
B902—- 84 26 2820 STY $26 
B904— BC 8&C CO 2830 .7 LDY .X READ SHIFT REGISTER 
B907- 10 FB 840 BPL .7 WAIT FULL BYTE 
B909— 59 00 BA 2850 FOR BYTE. ,Y CONVERT TO NYBBLE 
B90C- A4 26 86 LDY $26 BUFFER INDEX 
B9OE- 99 00 BC 287 STA : o2r¥ 
911~ DOD FE —«-2880 6 
913- 84 26 2890 .8 STY $26 
B915- BG 8C CO 2900 .9 LDY 06L,X READ SHIFT REGISTER 
B918- 10 FB. - 291 BPL . FOR FULL 
B91A- 59 00 BA 2920 FOR BYTE.TABLE,Y CONVERT TO NYBBLE 
91p- A4 2 293 LDY $26 
B922- CB 295 INY 
B923- DO EE _—- 2960 BNE .8 
925- BC 8C CO 2970 .10 LDY Q6L,X  ##READ CHECKSIM 
B928- 10 FB _—s«- 2980 BPL .10 
B92A- DS OO BA 2990 CMP BYTE.TABLE,Y 
B92D- DO 1 3000 BNE ERROR 
B92F—- BD 8&C CO 3010 .1ll LDA Q6L,X READ TRAILER 
B93 1 3020 BPL .ll 
B934— C9 DE 030 cmp $ 
B936- DO OA 3040 BNE . 
B938- EA 3050 NOP 
B939- BD 8C CO 3060 12 LDA Q6L.X 
B93C- 10 070 BPL .12 
B93E- C9 AA ~—: 3080 ESRA 
- FO 3090 BEO .RETURN 
3100 ERROR. RETURN 
B942- 38 11 SEC 
B943- 60 3120 RTS 
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3149 * 
150 * READ ADDRESS 
315) READ 

B944- AO FC 3186 * LDY SEC TRY 772 TIMES (FROM SFCFC 10 $10000) 
B946- 84 26 3190 STY 6 
Boas 6004 aslo CBN? 
Beas be 2g 33h Be 

94F- BD 8C CO 3240 .2 Pe Q6L,X READ SHIFT REGISTER 
B952- 10 FB 3250 L WAIT FOR FULL BYTE 
B954- C9 D5 260 .3 cup §Sp5 SEE IF $D5 
Baeg- BO FO 3310 NOP ° NO LAY 
B959- BD ac CO 3290 4 LDA Q6L +X READ SHIFT REGISTER 
BeeK BO Ro 3330 Oe SAA SEE IF SAA 
B962—- AO 03 3 LDY #3 READ 3 
Bo6d- BD BC CO 3340 5 LDA O6L,X READ SHIFT REGISTER 
B 8g C9 96 0 3=—s-_-33360 CMP $596 SEE IF $96 
Bebe | Bu Ree cox am 

971- BD 8C CO 3400 °§ LDA 06L,X READ REGISTER 
Bie ee Be? 

- A $26 

BS - BB is co 3410 8 LDR bax WAIT FOR FULL 
B Ee 25 EB 342 AND $26 MERGE THE NYBBLES 
B980- 99 2C 00 3470 STA $2C,Y — CHECK SUM 
Bons. BB 3480 Der oe — TRACK 

986- 10 E7 3030 BPL .6 2F — VOLUME 
SMe ih alg 

98B- BD 8C CO 3530 9 LDA OGL /X READ REGISTER 

98F- 10 FB 5 BPL, WAIT FOR FULL BYTE 
B990- C9 DE 330 cup # TEST FOR VALID TRAILER 


B3ap- to EB 0 Be BSA 

B99C- DO Ad 3610 BNE -RETURN 
B99E- 18 3630 00D. CLe 

B9OF- 60 64 RTS 


Apple Assembly Line....June, 1981....Copyright (C) S-C SOFTWARE....Page 15 


3660 * 
3670 * TRACK SEEK 
3680 SEEK ABSOLUTE 
B9AO- 86 2B =: 3700 STX  $2B SLOT*16 
B9A2- 85 2A _—«3710 STA $2A SAVE TRACK # 
B9A4- CD 78 04 3720 . COMPARE TO CURRENT TRACK 
BOA]- FO 33 3730 9 ALREADY THERE 
B9AB- 85 26 3750 STA ve # OF STEPS SO FAR 
9AD- AD 78 04 3760 .1 LDA eTRACK CURRENT TRACK NUMBER 
B9BO- : 27 3770 STA $27 
BOB2- 38 0 SEC 
BOB3- E5 2A 3790 SBC S2A DESIRED TRACK 
9B5- FO 33 ~=—- 3800 BEY .6 WE HAVE ARRIVED 
B9B7- BO 07 3810 CURRENT > DESIRED 
BOBO- 49 FF 2 FOR $ < DESIRED 
BOBB- FE 78 04 383 INC ; INCREMENT 
te ca ee ren 
Bae CE Ee 04 388 DEC . DECREMENT TRACK 
B9C5- C5 26 ©3870 .3 CMP $26 OF: 
Bee HB” dE LS Re Ree 
B9CB- C9 3830 4 CMP ; 2 4: 
B9CD- BO 01 3910 BCS .5 
oa ae rn ae 
B9D1- 38 EE B9 333 JSR .7 
B9D4- B9 11 BA 3950 LDA ONTBL.Y GET DELAY TIME 
B9D7- 20 00 BA 3960 JSR DLY100 DELAY 100*A MICROSECONDS 
BODA- A5 27 3370 IDA $27 TRACK NUMBER 
BoDC- 1 CLC TURN PHASE OFF 
Spp- p Fl B9 3990 JSR .8 
B9EO- B9 1D BA 4000 LDA , 
B9E3- 20 00 BA 4010 JSR DLY100 
BOE6- £6 26 4020 INC $26 # OF STEPS SO FAR 
SE8—- DO C3 4030 * BNE el oe ALWAYS 
B9EA- 20 00 BA 4050 .6 JSR DLY100 
ED- 406 CLC TURN PHASE OFF 
B9ER- AD 78 04 4070 7 LDA : 
BOF1- 29 03 4080. AND #3 ONLY KEEP LOW-ORDER 2 BITS 
BOF3— 2A 4090 ROL 0000 Oxx0 
BOF4- 05 2B 4100 ORA $2B OSSS OXX0) MERGE SLOT 
BOF6— AA 4110 TAX AS I FOR -OFF 
B9F7- BD 80 CO 4120 LDA PHOFF,X PHASE-OFF 
BOFA- Ai A 28s «A133 LDX $2B 
sore 6a 
BOFD- AA AO AO 4160 -HS AAAOAO FILLER: NOT USED IN DOS 3.3 
4180 * SHORT DELAY SUBROUTINE 
BAOO- A211 4200 DLY100 LDX #17 100*A MICROSECONDS 
BAQ2- CA 4210 .1 DEX 
BAO3- DO FD 4220 
BAO5- £6 46 4230 IN: $46 
Bree Be Ra 
BADR 8 20.20 ae 
BAOC- E9 01 4270 SBC #1 
BAQE- DO FO 4280 BNE DLY100 
BALO- 60 4290 . RTS 
4310 * DELAY TIMES FOR STEPPING MOTOR 
BAl]- 01 30 28 
BAL4~ 24 20 


BAlA- 1C 1C 1C 4330 ONTBL .HS 01302824201E1DICICICICIC 
BAID- 2C 26 
BA20- 22 IF IE 


BA23- 1D 1C IC 
BA26- 1C 1C 1C 4340 OFFTBL .HS 702C26221F1E1D1CIC1C1CIC 


Page 16....Apple Assembly Line....June, 1981....Copyright (C) S-C SOFTWARE 


BA29— 96 an SA 
BA2C- 9B SE 
BA2F—- 9F A6 A7 


2- AB AC AD 
Bas AE AF 4400 HS 96979A9B9D9ESFA6A 7ABACADAEAF 
7- B2 B3 B4 
BA3A- B5 B6 B7 
BA3D- B9 BA BB 
BA40- BC BD BE 
BA43— BF CB 4410 HS B2B3B4B5B6B 7B9BABBBCBDBEBFCB 
BA45- CD CE CF 
BA48- D3 D6 D7 
ae Bie 
BA5S1—- DF ES 4420 HS CDCBECFD3D6D7D9SDADEDCDDDEDFES 
BA53- E6 E7 E9 
BA56- EA EB EC 
BA59- ED EE EF 
BASC- F2 F3 F4 
BA5SF- F5 ES 4430 HS E6E7E9EAEBRCEDEEEFF ZF 3F4F5F6 
BA61- F7 FS FA 
BA64— FB FC FD 
BA67- FE FF 4400 + eHS F7F9OFAFBFCFDFEFF 
died FILLER: $BA69 THRU S$BA95 NOT USED BY DOS 3.3 
BA69- rth + eBS 45 
as Q * BYTE TABLE 
4510 * 
BAOQ- 4520 BYTE.TABLE .EQ *-$96 
BA96- 00 01 98 
BA99- 99 02 03 
BASC- 9C 04 05 
BASF- 06 AO Al 
BAA2- Vi a3 4530 eHS 0001989902039C040506A0A1A2A3 
BAA4 A 07 
BAA7- 08 A8 A9 
ea i 
BABO- BO Bl 4540 eHS A4A50708A8A9AA0DS0A0BOCODBOB1 
BAB2- OF OF 10 
BAB5S- 11 12 13 
BABS- BS 14 13 
BABB- 16 17 
BABE- 19 1A 4550 eHS OEOF10111213B81415161718191A 
BACO- CO Cl C2 
BAC3—- @ 
BAC6- C6 C7 C 
BAC9- C9 
BACC- CC 1C 4560 eHS COC1C2C3C4C5C6C7TC8CSCALBCCIC 
BACE- 1D 0 
BADI- Dl D2 1F 
BAD4— D4 2 
BAD7- 21 D8 22 
BADA- 33 24 4570 eHS 1D1ED0D1D21FD4D52021D8222324 
BADC- 26 27 
BADF- 28 EO El 
BAE8- E8 2C 4580 eHS 25262728E0E1LE2E3E4292A2BE82C 
BAFA~ 2D 2E 2F 
Sab 
BAF S Py 35 32 
BAF6- 37 38 F8 
BAF9-— 39 3h 3B 
BAFF- cy 4220 + eHS 2D2E2F303132F0F1333435363738F8393A3B3C3D3E3F 
45}° : 342-BYTE BUFFER FOR NYBBLES 
BBOO- 4630 RWIS.BUFFER.1 .BS 256 BOO - 
BCO0- 4680 RWIS . BUFFER. 2 -BS 86 00 - BCES 
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4670 * 
4680 * WRITE ADDRESS HEADER (CALLED BY FORMAT) 
4700 WRITE.ADDRESS 
BC56- 38 4710 SET IN CASE OF ERROR RETURN 
BC57- BD 8D CO 4720 LDA Q6H,X 96 HIGH, ey LOW, 
BC5A- BD 8E CO 4730 LDA O7L,X READ WRITE PROTECT STATUS 
BCS5SD- 30 5E 474 BMI DISK IS WRITE PROTECTED 
BF- AO FF = 475 LDA BYTE 
BC61- 9D 8F CO 4760 STA O7H,X H,Q7H: (A) TO SHIFT REGISTER 
BC64— DD 8C CO 4770 cup O6L,X L,O7H: WRITE ON DISK 
BC67- 48 478 PHA DELAYS 
BC68- 68 479 PLA 
BC69- 20 C3 BC 4800 .1 JSR . 12 CYCLE DELAY 
BC6C- 20 C3 BC 4810 JSR . 12 CYCLE DELAY 
BC6F- 9D 8D CO 4820 STA 06H,X WRITE ON DISK 
BC72- DD 8C CO 4830 CMP , 
BC75- EA 4540 NOP 
ais ef F 4 BNE 
Bead RG FR 4858 LDA $ . WRITE D5 AA 96 
BC7B- 20 D5 BC 4880 JSR WRITE.BYTE. 3 
BC7E- AS AA _—s- 4890 LDA # 
BC80- 20 D5 BC 4900 JSR WRITE.BYTE. 3 
BC83- AS 96 49] LDA §89 
BC85- 20 D5 BC 4920 JSR WRITE. BYTE. 3 
BC88- AS 4930 LDA VOLUME WRITE VOLUME, TRACK, AND SECTOR 
BCBA- 20 4 BC 4940 JSR WRITE.BYTE. 1 
BC8D- 4 4 LDA TRACK. 
BCSF- 20 C4 BC 4960 JSR WRITE. BYTE. 1 
BC92- AS 4970 LDA FMT. 
BC94- 20 C4 BC 4980 JSR WRITE.BYTE. 1 
97- AS 4590 VOLUME CHECKSUM 
BC99- 45 44 5000 BOR TRACK .CNIR 
BCOB- 45 3F 5010 BOR FMT. SECTOR 
9p- 48 2020 WRITE CHECKSUM 
9F—- 4A 5030 
BCOF- 05 3E 55040 AA #SAA, FOR TIMING 
- 9D & CO 5050 STA Q6H,X 
Bay fe 388 . 
- 8 AA 5 0 SSAA 
BCAA- 20 D4 BC 509 JSR WRITE. BYTE. 2 
AS DE 2109 ESDE TE DE AA 
BCAF~ 20 D5 BC 51 JSR WRITE. BYTE. 
BCB2- A9 AA _—s-45120 
BCB4- 20 D5 BC 5130 JSR WRITE. BYTE. 3 
BCB7- AS EB 140 LDA # 
BCB9- 20 D5 BC 5150 JSR WRITE. BYTE. 3 
BCBC- 18 5160 CLC 
BD 5170 .2 LDA Q7L-X 
BOCO- BD 8C CO 2180 LDA , 
BCC3- 60 19 3 RTS 
39 * SUBROUTINES TO WRITE BYTE ON DISK 
Bee WRITE. BYTE. 1 
BOC4— 48 52 PHA ADDRESS BLOCK FORMAT 
BCC5- 4A 5250 LSR 
BG 95 BB co 2298 SR SAE 
BCCB- DD 8C CO 5280 cup O6L,X 
BCCE- 68 5290 PLA 
BCCF- FA 5300 NOP 
BCDO- FA 2310 NOP 
BCDI- EA 5320 NOP 
BCD2- 09 AA 55330 ORA 
3340 WRITE. BYTE. 2 
BCD4- EA 5 
2360 WRITE. BYTE. 3 
BCD5- EA 7 
BCD6- 48 5380 
BCD?—- 68 5390 PLA 
BCD8- 9D 8D CO 5400 STA QSH.x 
BCDB- DD 8C CO 5410 cmp O6L,X 
BCDE- 60 3420 . RTS 
p440 SBCDF THRU SBCFF IS NOT USED BY DOS 3.3 
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Beneath Apple DOS -- A Review 


If you have any interest whatsoever in DOS. be sure to buy this 
book! It costs $19.95 (plus shipping), from Quality Software, 
6660 Reseda Blvd., Suite 105. Reseda, CA 91335. Call them up at 
(213) 344-6599 and give them your Master Charge or VISA number. 
Do it now! 


Or better yet, send your check for $18 to S-C SOFTWARE, P. O. Box 
5537, Richardson, TX 75080. I'll mail you a copy postpaid right 
away! Saves you both time and money! 


The authors of Beneath Apple DO§ are Don Worth and Pieter Lechner. 
You may know Don from his adventure-like program. “Beneath Apple 
Manor", or from his LINKER program (both available from Quality 
Software). 


The book is published with a plastic comb binding, and is about 
the same dimensions as the "Apple Assembly Line". There are 156 
pages, organized into 8 chapters and 3 appendices. A 
comprehensive Quick Reference Card for DOS 3.3 is included. There 
are cartoon sketches throughout which both amuse and aid 
comprehension, as well as more traditional diagrams and charts and 
tables. A four page index helps you find whatever you need to 
know. 


Though the book focuses on DOS 3.3, it covers all the major 
differences found in earlier versions. Chapter 2 is called "The 
Evolution of DOS", and traces features and differences from 
Versions 3, 3.1. 3.2, 3.2.1, and 3.3. At other points throughout 
the book, wherever the various versions differ, the details for 
each version are explained. 


Chapter 3 covers diskette formatting, in much more detail than the 
Apple DOS manual: how bits are recorded, how 256 bytes are 
converted to 410 or 342 shorter bytes, how those shorter bytes are 
converted to encoded bytes ready to be written, how the checksum 
is computed and tested, how the sectors are identified around a 
track, all about self-sync bytes, and how sectors are interleaved. 


Chapter 4 covers diskette organization: the DOS image, the Volume 
Table of Contents, the catalog, track/sector lists, and the format 
of each type of file. Some guidelines for repairing damaged 
diskettes are given. 


Chapter 5 outlines the overall structure of DOS. The booting 
process is explained in a fair amount of detail. If you need more 
information on DOS internals, chapter 8 is for you. 


Chapter 6 gives clear instructions for using RWTS from machine 
language programs. You may already be quite familiar with this, 
because: 1) it is fairly well explained in the DOS manual; 2) 
many articles have been published in magazines and newsletters 
telling you how; and 3) you have gone ahead and tried it yourself. 
But there is another way to get into DOS which treats files as 
files, but without the normal DOS overhead. Apple's FID utility 
uses this way in, through the so-called Pile Manager. Chapter 6 
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goes into great detail describing the File Manager, and some 
examples showing how to use it are given. This information has 
never been published before, and is well worth the price of the 
entire book. Chapter 6 also shows you how to talk to the disk 
drive directly. without any DOS at all. 


Chapter 7 explains how to customize DOS, and gives the patches for 
four nice custom features: avoiding the language card reload, 
making space between DOS and its buffers, removing the pause 
during a long CATALOG, and changing the HELLO file start-up from 
RUN to BRUN or EXEC. 


Chapter 8, 42 pages long, describes EVERY routine in DOS. It 
starts with the disk controller ROM (at C600 of your controller is 
in slot 6), and goes from 9D00 through BFFF subroutine by 
subroutine. The descriptions are in text form: no disassembled 
code, and no flowcharts. If you put the book beside a 
disassembled section of DOS, it is easily understood. Data 
sections are outlined also, so that you can tell what every byte 
is there for. The last page of chapter 8 lists all the zero-page 
variables used by DOS, and explains each use. 


Appendix A contains five sample programs which can be used to 
examine and repair diskettes. They also illustrate the use of 
RWTS and the File Manager. 


Appendix B briefly explains the philosophy of disk protection 
schemes. Someday someone will write a whole book on this subject. 
This Appendix is only four pages, so you won't find out how to 
create the uncrackable disk, or even how to crack it if you did. 


Appendix C is an excellent glossary of terms used in the book. I 
estimate that about 160 words are defined. 


The authors list five good reasons why they wrote Beneath Apple 
DROS: no, six: 


1. To show direct assembly language access to DOS. 

2. To help you fix clobbered diskettes. 

3. To correct errors and ommissions in the Apple manuals. 

4. To provide complete infomation on diskette formatting and 
DOS internal operation. 

5. To allow you to customize DOS to fit your needs. 

6. To make the authors a lot of money. 


They have done an excellent job with the first five objectives, 
and I think number 6 will be met as well. 


Apple Assembly Line is published monthly by S-C SOFTWARE, P. O. Box 5537, 
Richardson, TX 75080. Phone (214) 324-2050. Subscript idn rate is $12 per 
year in the U.S.A., Canada, and Mexico. Other countries add $12/year for 
extra postage. Back issues are available for $1.20 each (other countries add 
$1 per back issue for postage). All material herein is copyrighted by S-C 
SOFTWARE, all rights reserved. Unless otherwise indicated, all material 
herein is authored by Bob Sander-Cederlof. (Apple is a registered trademark 
of Apple Computer, Inc.) 
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